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برمجة المايكروكونترلر عن طريق لغة :البروتن 


بسم الله الرحمن الرحيم 


سوف نبدأً إن شاء الله بتعلم برمجة المايكروكونترولر عن طريق لغة البروتون في البداية لغة البروتون هي 


ی فا ن تة الع وق ی الى خد قي اة 0ة ا20 ك ل لوا فة م كا 


ص 

ظط 

uw 

8 افا ا او ت ا ل ا اة و 
في هذا الشرح سوف نقوم بتغخطية 

SAFES aa : 

3 أ- المتفيرات 


ب والدوال الشرطية 
ج- الحلقات 

د- البرامج شبه الفرعية 
و- وغير ذلك ان شاء الله 


2 اول الموضوع من الناخة الفملة فع 


İ- analog to digital converter 

اب- التعامل مع ال 

ج- التعامل مع المنفذ التسلسلي وربطه بالفيجوال بيسك 
عن طریق ۴۴۸0۷د التعامل مع 


و التعامل مع اليو اس بي وربطه مع الفيجوال بيسك 
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برمجة المايكروكونترلر عن طريق لغة :البروتن 


وطفا سم استخذام التروتنوسن فى المكاكاة 
وما تيسر لنا ان شاء الله في الفترة القادمة من مشاريع ونحو ذلك 
في اللنك التاليبرنامج بروتون 


http://www.4shared.com/file/231653043/2382d3fc/proton_new.html 


وطريقة التنزيل موضحة بداخلة 


الدرس الأول 


المتغيرات لغة البروتون تدعم انواع متعددة من المتغيرات مثل -1 


,Bit , byte,word ,Dword, float, and String 
وأما البت والبايت والورد فمعلوم ماهم‎ 
أو ضعف الورد فهو متغير من النوع الغير كسري من 32 بت 0۷0۲4 وأما‎ 


كوو توغ قن الفكخ رت مك لك آي تخل الكفدور او لاء العف 165۴ع واا الفلوت 
وتريف المتغيرات يكون كالتالي 
Dim X as bit‏ 
Dim X as Word‏ 
Dim X as float‏ 
Dim X as Dword‏ 
Dim X as String * 29‏ 


حيث أن ال 29 هي عدد الحروف 


TET 
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وأما المصفوفات فيتم تعريفها كالتالي 
Dim x[10] as byte‏ 


الثوابت -2 


كيفية كتابة الأرقام -3 


للكتابة الصيغة الثنائية يتم وضع علامة النسبة المئوية 
متال 

X= %10010000 

واما الصيغة الست عشرية فيتم استخدام علامة الدولار 

متال 

X=$FF 

وأما بالنسبة للصيعة العشرية فينم ذلك دونما كتابة اي شيء 


مثال 


وأما الصيغة الأخيرة الكسرية فذلك يتم عن طريف كتابتها مباشرة 


مثال 


X= 1.103 


SYMBOL PI = 3.14 


DIM PI AS 3.14 
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5اAإستعارة‏ الأسماء أو -4 


کی غا ا آت فع آم می گات بی نة هكن ذلك باالطرهة اة 


Dim LED as porta.1 


وتكمن اهمية هذا الشيء في تسهيل فهم البرنامج وجعل تذكر الأمور غاية في السهولة 


لهذا الأمر علاوة على انه يمكن استخدامة في تعريف الثوات ا5۲™180وكذلك يمكن استخدام أمر 
مثال 


Symbol LED = PORTA.O 


التعامل مع المسجلات -1 
گا کنا شاا ان المسجلات يكن اة تفار فنها باسم آخرء يمكن اسطا أن عة اسا 
سجلين لإسم معار واحد 

فال 

MR‏ 1و ا1 MR‏ كما هو معلوم بعض أنواع التايمر ضمن المايكركنترولر من نوع 16 بت اي 
یمکن استعاره اسم واحد لکلیهما من 16 بت کتالتالي 


Dim timerl as TMRI1L.Word 


ويمكن ايضأً التعامل مع السجلات بالجمع والرح والضرب ونحو ذلك 


م 
ظط 
س 
ص 
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برمجة المايكروكونترلر عن طريق لغة 


منال 


طريقة کتابه الأكواد -2 


هنالك طريقتان لكتابة الأكواد 


إما بسطور عدة كما هو معلوم أو باستخدم السطر الواحد 


مثال 


وة الا 


:البروتن 


Dim x as byte 


X= porta *10 


Dim x as byte 


For x=0 to 100 
Porta=Xx 


Next 
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الفط الواخة “2 


Dim x as byte 


For x=0 to 100 : porta=x: Next 


ص 
ك :(حيث يتم الفصل بين الأوامر بنقطتي القول ( الرأسية 
الدوال الرياضية ونحوها 
في اللنك التالي لأنها على شكل جدول 
Ê‏ 
E:‏ 
http://www.4shared.com/file/23232027...459f/math.html ٣‏ 


الدرس التالت 


فی هدا الرس سال اة كل من الصمل اة والطاقاف 


الجمل الشرطية -1 


وكما هو معلوم ان الجمل الشرطية هي أحد الأركان الرئيسية للبرمجة حيث انه عن طريقتها 


بتحكم بسير البرنامج 
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م 
ظ 
ب 
٣‏ 
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والجمل الشرطية عدة أنواع 
A- if‏ 
B- select case‏ 
اجملة ۸ ) 
if‏ -1 
يمكن كتابها بعدة صيغ أما بأسلوب الجملة الواحدة أو الجمل المتعدده 
وأما أسلوب الجملة الواحده فصيغته كالتالى 
If condition then instructoion1: instruction2‏ 
وهي مكافئة لصيغة متعددة الجحمل التالية 
If condition then‏ 
Instruction 1‏ 
Instruction 2‏ 


Endif 


... عكاع.... fأفقي‏ حالة تفرع الشرط لنتيجتين يستخدم -2 


If condition then instruction1: instruction2: else: instruction 3 


وهي مكافئة لصيغة متعددة الجمل التالية 


If condition then 
Instruction 1 


Instruction 2 
Else 
Instruction 3 
Endif 
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برمجة المايكروكونترلر عن طريق لغة :| 


3- حالة وحود اکثر من شرطین يیستخدم‎ يقفأf‎ elseif else 
بالنسبة لأسلوب السطر الواحد‎ 


uction1:instruction2:elseif condition then condition3 : else: 


وهي مكافئة لصيغة متعددة الجمل التالية 


وأنواع الشروط: 


لبروتن 


If condition then instr 
instruction 4 


If condition then 
Instruction 1 
Instruction 2 

Elseif condition then 
Instruction 3 


Else 


Condition4 


Endif 


ی 

=<آأكبر من ساوي -2 
>اضغر من -3 
=>أصغر من يساوي -4 
=يساوي -5 

<>لا يساوي -6 


XORو‏ 0Rو AND‏ وفي حالة وجود شرطین أو أكثر متعلقين ببعضهما البعض يستخدم 


الأمثلة 


لإختبار اذا كان المتغير يحتوي على قيمة 10 ؟أفي هذا المثال سنستخدم 
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Dim x as word 


X= 10 
If x= 10 then: portb=1:else : portb=0 


Dim x as word 


X= 10 

If x= 10 then 
portb=1 

Else 

portb=0 
endif 


والمتال التالي يوضح الشروط المتعلقة ببعضها البعض 


کود: 


Dim x as word 


Dim y as word 


Y=50 


If x= 10 and y = 50 then 
portb=1 
else 
portb=0 
endif 
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ويستخدم هذا النوع من الجمل الشرطية في حالة وجود شروط كثيرة 


وصيغته کالتالي 


#أوأنواع الشروط تم ذكرها في قاعدة 


ويضاف االيها التالي 


عند كتابة الشرط يالصيغه التالية 


2,35 


قافآ كان الفكر مخمل اخذف هة القت 


t0 0‏ 10 وأیضا 


اطا آ6 تالكر مجحل فة ها فن 10 ال 20 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


B) Select Case 


Select variable 
Case condition1 
Instructions 
Case condition2 
instructions 
Case else 
Instructions 


Endselect 
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مثال 


الحلقات - 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


Dim x as byte 


Select x 
Case 1 
Portb=0 
Case 2,4,6, 
Portb=3 
Case > 10 
Portb=2 
Case else 
Portb = 255 


Endselect 


والحلقات هي اوامر تستخدم لتنفيذ أمر معين لعدد معين من المرات أو الى ما لا نهاية أو الى ان 


أنواع الحلقات 


ويشستخدم هذا الأمر لتنقيذ افر ما أو عدة أوامر لعذد فغين من المرات 


1- For next 
2- While wend 
3- Repeat until 


1- For Next 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


والصيغة كالتالي 


For var = value Step value 
Instructions 


Next 


يخرج قيم من 1 الى 10 4۸متال لجعل المنفذ 


< :كود 
Dim x as byte‏ 
ج 10 For x=1 to‏ 
Porta=x‏ 
Next‏ 
2 سيتكرر 10 مرات ×=ه۲هموالعبرة هي أن الأمر 
م اذا اردنا ان تكون الزيادة اكثر من واحد بعد نهاية تنفيد الأمر في مرة 8Pا5ويستخدم‏ 


لخمس مرات ×= ه0۲ سيصبح تنفيد الأمر 2 م6اءإذا قمنا بتعديل البرنامج السابق بإاستخدام 
ويتم تكوت القيم الظاهرة علة المنفذ | فردية 


Dim x as byte 
For x=1 to 10 Step 2 


Porta=Xx 
Next 


2- while wend 


وى عبازة عن خلقة «شرطة » تمفتى آنه بثم تتفند أمر معن آلى أن تتخقق الشرطظ 


€ 
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برمجة المايكروكونترلر عن طريق لغة :البروتن 


والصيغة 


مثال 


Dim x as byte 
X=0 


While x<5: portb=x:wend 


وهي عبارة عن حلقة شرطية 
والصيغة 


While condition 
Instructions 


Wend 


Dim x as byte 
X=0 

While x< 5 
Portb=x 
X=x+1 


Wend 


3- Repeat until 


Repeat 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


Instructions 


Until condition 


مثال 


Dim x as float 


X=0 ب‎ 
Repeat 
Portc=X 
Inc xX ۹ 
Until x=10 
Ê 
E: 
ع‎ 
Ê 


الد الرا 
سنتطرق في هذا الدرس الى ما بقي لنا من مقدمة برمجيه ومن ثم سنتناول مقدمة بيسطة عن 
واجهة التطوير وثم نقوم بكتابة بعض البرامج البسيطة إن شاء الله 
lable‏ -1 
الليبل هو عبارة عن عنوان يضاف الى سطر ما كي يسهل الرجوع الية 
ویغته کالتالي 
Lable :‏ 
حيث نقوم بكتابة اسم المراد جعلة كعنوان ومن ثم ثقوم بوضع النتقطين الرأسيتين بعده 
٥‏ وتجدر الإشارة الى انه يتم الإشارة اليها عن طريق امر 
البرامج الفرعية -2 


هي عبارة عن برامج لها عرض محدد غير البرنامج الرئيسي ويسنفاد منها بتجزئة البرنامج 
الرنمتي وخفلة مهل الاء والضانة 


€ 


برمجة المايكروكونترلر عن طريق لغة :البروتن 
والصيغة 


Lable: 
Return 


وویتم استدعائها هن طريق الأمر 


مثال 
ب والذي هو وظيفته جعل الليد يضيء عكالامفي هذا البرنامج سنقوم بكتابة برنامج فرعي اسمه 
س 
. أ اة ومن تهر تى لافج فن خلال الرافح ال تة 

Main: 

Gosub pulse 
EÊ: 
Goto main & 
3 


Pulse: 


Porta.0=0 


Delayms 1000 


Porta.0=1 
Delayms 1000 


Return 
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فالضؤرة التالتة توضخ: الوانحه؛ 


1 د‎ 
ظط حل‎ 
ww 
ص‎ 
pF EFF FF FF FF E e FF FFF pg FF pF a FF pF FF a E pF FF e FF Fe FF FF gE E o | 
n 7 FWTITLIP. RAF م‎ | 
duthor ;: [seleee VIFF, - ,EPITOR GFTIMS} 5 1 
Matlee ; Copyright fe FOIP fsefere IEF. EPITOR oFFTIORE] * 0 
UL 7 لل‎ Re Ree 2 
#* pare #7 FOIR ۳ 
iF Keraion 7 I0 
FF ee i 
ae ا‎ َ 
8 Eg arable اھ س ھر ج کر س کے س س ر س س س س س س س ی س ر ج ا د س کر س س د ی ی ر م کر چ کے ی م ی س چ م س چ چ چ ی ی م و و 3 وا‎ 


Bevwice = 16Fi 
شج ا‎ 1 1 
ÛD Akt snd Hosier Sa : 


Pim addr As Ward 


سخ ن n‏ 
5 
مي ٠١‏ 


E فتن‎ AIL Digital ûn : 
طب ا‎ DPeelare SDA_Pin=PORTE.1 ا‎ 
j eos Declare SEL_Pin®FORT.4 1 6 
انرز ەلاد ت‎ Deelare Slow Bua=ot# ے‎ 
ESE! 3 
5 ia 
Bemus. - 
Cempilalion Suttess lor Target Device 1i (û Rt) ." 
wer ion BLL 


Stier Bel hacem‏ اط تجاح قرجسة الكید يهر Yer TEHT Jog Fa‏ سج 


E i variable bbe used Iron û posable SER (O, E] 
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كتانة الىرنا 

في البداية عند كتابة برنامج يجب تحديد ماهو نوع المايكروكنترولر المستخدم وما هو المذبذب المطلوب 
ذفن تم الافتاذاة والمشيا ت وال ات وتكة ااك 

متال_1 


افخ الخو الوفاضن أو لفلا والهوة العالة توكح الات ة 


TEvT 
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والبرنامج هو 
:كود 


Device = 16F88 ' Defining the device 

Xtal 4 ' Defining the frequency 

Dim LED As PORTB.O0 ' makes led = portb.0 

TRISB=ÛO0 ' defining the pins . All portb are outputs 


main: '" 


the lable of main program 
LED =1 ' portb.0=1 
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DelayMS 1000 ' wait 1 sec. 1 sec = 1000 msec 
LED=0 ' portb.0=0 
DelayMS 1000 ' wait 1 sec 


GoTo main ' goto label main ( infinite loop J) 


End ' end of the program 


والبرنامج والسميوليشن في اللنك التالي 


http://www.4shared.com/file/23608051...1 flasher. html 


الدرس الخامس 


قبل كتابة اي برنامج يجب أن يتم تحديد المايكروكونترولر المراد العمل معة ويتم ذلك عن طريق الكود التالي 


Device = نوع الميكروكونترولر‎ 
i 


Device =16F877 


ولت رة الكريضسال أو الكو ف اكتام الأمر اتالى 


ا×قيمة التردد 


متال : 


Xtal 4 


كما هو معلوم فإن المايكروكوترولر به منافذ ويمكن برمجتها لتكون إ ما رقمية أو تناظرية 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


في حالة الرقمية يمكن يكون ذلك عن طريق إبطال الخصائص التناظرية للأضلاع وجعلها فقط رقمية أو 
خفنت فطلو 


وبصورة عامة فالمنفذ التناظرية إما ان تكون للمقارن أو للمحول التناظري الرقمي 
ولإبطالهم بالكلية يتم استخدام أمر 
All Digital (true/false)‏ 


متثال 


All Digital true 


TET 


أو بالسجلات 

CMCON=7 

لإبطال المقارنات 

ADCON1=7 

لإبطال المحولات التناظرية الرقمية 


97: 


gADCON1=15 
8 للمایکروکونترولر التي تحتوي على اکثر من‎ ٤ 


ماف 1 


tr my 


سيتم ۸يتضمن هذا المتال التعامل مع المنافذ كمداخل ومخارج حيث انه مايتم ادخاله عن طرق المنفذ 
8اظهارة في المنفذ 
:كود 


Device =16F877 
Xtal 4 
All Digital true 


TRISA=255 "all porta as8 iDput 
TRISB=U " All port ã5 oOUEBpUC 


main: 


FPORTEB=PORTA 


GoTo main 


End 


€ 
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برمجة المايكروكونترلر عن طريق لغة :البروتن 


متال 2_ 


العامل ك المخرل القاظك القوي 
يتم ذلك عن طريق الأمر التالي 
VAR = ADIN 0‏ 


فهو اشارة الي المتفير ١۷3والرقم‏ صفر يشير الى المنفذ التشابهي الرقمي 0 و أما 
ولالهذا الأمر بعض الإعدادات وهي على النحو التالي 
الأمر التالي لتعريف دقة المحول هل ثماني بت أو عشر -1 


DECLARE ADIN_RES 10 


الأمر التالي لتعريف مصدر المهتز لتحديد زمن التحويل -2 
JaRC gİ2_FOSC gİ4_FOSC sİi8_FOSC gİ32_FOSC‏ 


مثال 


DECLARE ADIN _ TAD FRC ' RC OSC chosen 

(مامصهء)الأمر التالي لتحدبد زمن اخد العينة -3 

DECLARE ADIN _STIME 50 ' Allow S0us sample time 
الحسابات‎ 

كيف يتم حساب القيمة المرجوة أو الفولت المطلوب 


يتم ذلك كالتالي 


والفرق بين كل درجة وأخرى من درجات المحول يتم حسابها كالتالي 


((+Vref ) — (-Vref))/2^number of ADC bits 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


عندنا محول تشابهي تناظري له الخصائص التالية 

ذو 10دقة بت -1 

هو 5 فولت ۴ع ۷+و -2 

3- -Vref ھو0‎ 

بالتالي قات الإنتقال من .درجة الى أخرى سبختاح الى الخهد التالي 


(5-0)/2^10 3 1024 


يساوي 
هھ 0.0048 
اى سا فخا ال قدا ناقرات 0ا تقال من خخ الى لقف 
5 فال عاي 
2 مقياس الجهد 
الدانرة 
Ê‏ 
E:‏ 
3 
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برمجة المايكروكونترلر عن طريق لغة :البروتن 


Device = 16F877 
Xtal 4 


Declare Adin Res 10 ' 10-bit result required 
Declare Adin Tad FRC ' RC OSC chosen 

Declare Adin Stime 50 ' Allow 50us sample time 
Declare LCD_DTPin PORTB. 
Declare LCD_ENPin PORTB. 


ص 
Declare LCD_RSPin PORTB.‏ 
ص TRISA.0=1‏ 
TRISB=0‏ 

Symbol LED = PORTB.O ى‎ 
LED =0 3 
Dim x As Word 

Dim volt As Float Ê 
Dim limit As Word f: 
ADCON1 $10000000 ' Set analogue input on PORTA.0 ٍ 


main: 


x=ADIn 0 
VOlt = x * 0.0048828125 


Print $ŞFE, 1,#volt," Volt" 
DelayMS 400 


GoTo main 


وهذا المقياس يقيس الجهد بين 0 و 5 فولت فقط 


واللنك التالي للبرنامج و السميوليش 


http://www.4shared.com/file/244042621/9423e292/ADC.html 


€ 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


متال عمالی 2 


وهو عبارة مجس تناظري على ان يتم اصدار 135اهذا البرنامج صمم للتعامل مع مجس الحرارة 


الدائرة 
علق انوا عقاوم رة 195م مهفل ال 


TEvT 


97:» 


tr my 


Device = 16F877 
Xtal 4 


Declare Adin Res 10 ' 10-bit result required 
Declare Adin Tad FRC ' RC OSC chosen 


Declare Adin _Stime 50 ' Allow 50us sample time 
TRISA.0=1 


TRISB=0 
Symbol sound pin = PORTB.0O 
Symbol LED = PORTB.1 


€ 


برمجة المايكروكونترلر عن طريق لغة :البروتن 


Dim x As Word 
Dim limit As Word 


ADCON1 = %10000000 ' Set analogue input on PORTA.0 
LIMLIE=185 F ERIS 2B aSSuüUmpEiéoR ERhat 9IO0C = 100 TChIS Dumber .SBould 


be calibrated 
main: 


TET 


x=ADIn û0 


If x > limit Then 

LED =1 

DelayMS 1000 

Sound sound pin, [100,100] 


97:» 


Else 
LED =0 
EndIf 


tr my 


GoTo main 


واللنك التالي للبرنامج و السميوليش 


http://www.4shared.com/file/230454559/aaef5b4e/LM35new. html 


€ 


ٍ 
ظ 
ب 
ص 


97: 


tr my 


“€ 


برمجة المايكروكونترلر عن طريق لغة :البروتن 
خاتمه: 
لقد تعرفنا علي المبادئ الاساسية لبرمجة المايكروكونترلر ومن خلال 


هذه المبادئ يمكن لكل من يريد برمجة البيك أن يبدع في مشاريع 


باستخدام: 


otonم‏ البروتن 
59 وبرنامج المحاكات 


